iLL 17046 DIM PRINT "INSTRUCTIONS? (V.-. 

GQ3UB 630p DIM 3(20,3) q PRINT "JUST A MOMENT WHIu 
RAM CHIPS."! PRINT 3 PRINT GOSUB FOR J=1 TO 20 NEa 
< NEXT K; NEXT J0 DATA 2,, 5, S, 1 , 3, 10 , 2, 4 , 1 2, 3, 3, 1 4 , 1 , 4, 6 
,9,8, 10, IS, 2, 9, IIP DATA 10, 12, 19,3. 11, 13, 12, 14,20,4, 13, 13 
:0, 7, 16, ia,,9, 17, 19, 1 1 IS, 20, 13, 16, 19 DIM L(6)0 DIM M(6)0 FL 
, (20S RND (0) + l) ■=M(J)=L(J)p NEXT j NEXT FDR J-1 TO 6 FDR K=u 

330 IF L':J)=L(K) .THEN 2400 NEXT Ko) NEXT J'A^5pQ=L(l) NEXT PR. 

PUS" PRINT " " GOSUB 11003 GOSUB 1290P IF 0=1 THE. 

HEN 510p GOSUB 1370 GOSUB IF F=0 THEN 420 NEXT GOTO 530 GOSUB IS 
N 4200 IF F>0 THEN 580P PRINT "DUMMY, YOU LCSE--WUMPir JUST LOVE 
600 GOSUB PRINT "O.K. HOTSHOT, THE NUMPII WILL GET THEIR REVENGE 
T "WUMPII SPIRITS WILL HAUMT YOU UNTIL THEN..." FOR J = 1 TO 6L(J>-^i- 
PRINT "SAME SET UP? (Y-N)"3 INPUT ISP IF ISO"Y" THEN 240' GOTO 360 
T "WELCOME TO ’HUNT '-HE WUMPUS’ " NEXT PRINT '■'E WUMiPUS LIVES IN A 
ENTY ROOMS. EAC^■■ !M HAS 3 TUNNELS LEADIN3 j. ■■ OTHER" PRINT "RQOI 

r A DUDDECA- (ON TO SEE HOW THIS WORKS. vqu DON’T KNOW Wi- 


■ '^.CECAHED'^ 

' |4 IPOTT*" 

^ !?. l.'HINh 

,:.BAT G, 

□ u. H N ^ BY 

si PRINT 


jK' SOMEaNE."!!) GOSUB 2200: PR I. 

' THERE ARE TWO OF THESE. F 
"SUPER BATS — TWO OTHER ROOMS 
.1 TO SOME OTHER RGOMl AJ RAND. 
'SUB 2200s PRINT ; PRINT PRINT ' 
HAZARDS (HE HAS SUCKER FEET A. 


-■'RINT O PRINT ' 
■'TO ONE AND 
'VE SUPER BAT 
SUB PRINT 
' PRINT "THl 
'0 BIG FOR 


'USUALLY HE IS ASLEEP. 


TWO 


r =? LU ^ 


a HIS ROOM OR SHOOTING AN ARROW. P PRINT 
^ ONE ROOM, DR STAYS WHEREHE IS (P=.25). 


THINGS WA^ " HIM UP, 
IF THE 4 'mPUS WAKf 


r ' 


AFTERTHi 

HE EATS YOU UP (AMD YOU LOSE!). "NEXT GOSUB 22t 
wSiNT "EACH TURN YOU MAY MOVE DR SHOOT A C.ROGi 
§ [^ ROOM (THROUGH ONE TUNNEL." 0 PRINT 

YOU RUN OUT YOU LOSE. CH ARROW CAN 

.-.'■SPRINT ! PRINT : GOSUB 22i^ RI.MT "YOU AI^ 

JtS YOU WANT THE ARROW TO Gu. . THE ARROW CA 
TUNNEL) IT MOVES AT RANDOM ..i THE NEXT 

-xJMPUS, ' ■) WIN" NEXT PRINT "IF THE ARR 

PRI^■ -PINT "WARMINGS" PRINT "WHEN YOU ARE 

2 A ' HE COMPUTER SAYS ; "0 PRINT "WUMF 

EARBY’ ”P PRINT "PIT — ’I FEEL A DRAFT 
f J=2 TO 6 FOR K=1 TO 30 IF S(L(1),' 

THEN 1190: IF J=--=4 THEN 1190' IF J 
A WUMPUS" GG3UB GCTTO 1220 NEXT P 
EARBY!" NEXT K; NEXT JO PRINT "Y'' .6 

;S(Q, 1) ,3(D,2) ,S(Q,3) ' PRINT p R' 4 i"' 

It IF THEN 1340 0=10 RETURN 0 

ARROW ROUTINE GOSUB F=0 DIM P(3) INPL' 


^ IF HEI‘ 
PR IN' 
W. MQV; 
I. YOU 


□ Nc 


Ti 


TFiUi, 1170. 

10p PRINT "I 
1220 PRINT "BA, 
"TUNNELS LEAD TO 
MOVE (S-M) 

RN p .REM 
F J9<1 THEN 1410; 

' THEN 1510 GOSUB 
SIC — BE REALISTIC 


LING TI- 
• P PRI^ 
. IF THE 
p YOU, 'f 
.'bOM ANA'S 
L SMELL (■ 
PINT ; PP 
J) THEN 3 
1210: IF 
"I FEEL A I 
.6 IN ROOM " 

4 NEXT INPU 
THEN 12 

jUMBER of ROOMS 


IF J9>5 THEN 14103 FOR K=1 TO INPUT "ROOM #",F 

IF P(K)K>P(K-2) THEN 1510 NE' . PRINT "ARROWS ARE 
" GOTO 1450 NEXT K0Q==L(1)3. rOR K=1 TO J9P FOR Kl- 
3,Ki)=P(K) THEN 1720p NEXT K1 NEXT Q=S(Q, INT (3* RND (0)+l)) GOTO 
r'RINT ’'MISSED"0Q=L(1)P GOSUB 1310p REM A=A-1 GOSUB IF A>0 THEN 

) RETURN Q=P(K)0 IF 0<>L(2> THEN 17703 PRINT "AHA! YOU GOT THE WU? 
aiRN p IF QOLd) THEN 1610 GOSUB PRINT "OUCH!!! ARROW GOT YOU." 
no INT (4)* RND <0)+l) IF K=4 THEN ie400L (2) =S (L (2) , K) 3 IF L(2)K 
■^NT "WUMPUS GOT YA ! ! ! ! DUMMY" 'F=-lp RETURN NEXT F-0 PRINT "Q.K 
^NPUT Q IF 0«:i THEN 1900: IF Q>20 THEN 19000 FOR hOl TO 3P I' 
ni0' NEXT Kp IF Q=L(1) THEN 2010 GOSUB PRINT "ARE YOU FOR f 
■5SIBLE!" NEXT GOTO 1900 L ( 1) =□ 0 IF Q<>L(2) THEN 2100 3 F 
INTO A WUMPUS!!" ' GOSUB 1310 p IF F=0 THEN 2100 GQSUF 
IF Q<>(4) THEN 2150! PRINT "A PIT!!!!CHINA HERE I r 
~ Q<>L(5) THEN IF Q<>L(6> THEN 2190!' PRINT "SUP'' 

(20# RND (0)+l)! GOSUB GOTO 2010! NEXT 
'•*11" NEXT I"0 RETURN "P END 
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Well here is almost the end o-f another year and ws here at the 
club hope that everything has been going well with everybody out 
there. We have had a lot of fun dQin<g-fel>B lett-gr t[T4s year plan 
on continuing next year with the new, ,E13!I,TpRiS Ceorg^j ^nd Susan 
BAKER. It you have not sent in your rsh'^wa-r-'FSRrM-^^ar next 
year you had better hurry because by the time you r-ead this you 
VMill only have a very short time left to get the discount. 


Next month <Movember) we will combine the Novomber and Decem- 
ber Issue and mail it out around the second week of November. Qur 
primary reason -for doing this is to try and avoid the Christmas 
rush, the BUl.K rate ln^^terial would be the last to move and it 
would greatly delay getting it. Hope this does not cause any pro- 
blems with anybody out there. 

ThTicom-i-ass F='t=t±!r-fc>.cSiir"rTi 

Thomas has sent in a set ot the plans for converting the IiT-i 
to be used with a monitor. Because of the difficulty of printing 
the drawings we will have it available through the CLUB. Due to 
the cost of printing it will cost 12 , this includes postage. 


n O i X 1 3EH cd w m «ei. m 

Bill is concerned about the CLUB changes that will occur on the 
First of January, '.'je'l. 1 let me assure you that we are not going to 
leave the CIJJB we are just changing the way things will be done. 
We will still be here helping George and Susan to iiiiprove the 
IM-1 in a MILLION. We will still be offering the servicing for 
the IM-1 and as we find any new hardware we will let everybody 


Q? is there a program available that would be a close substiture 
for APF’s Checkbook/Budget Mgr that can be used with the disc? 

A. A couple of month’s ago we published a LEDGER pr'ogram which 
could be changed to do this if you are interested, right now that 
is the only thing I have. This would be a great tiirie to put out 
a call to the membei^s out there that have modified the TAPE pro- 
grams to allow use of the DISC drive. If they would send them 
in to the CLUB I am sure they could be published. 

G!? In line 3100 of the ANIMALS program there is no line 3040 
for it to GOTOi ! ' ' 

A. You found one of our BOBQ’s, just change 3040 to 3080 on 
line 3100. 


October 1983 


■'age 3 


Hey -folks out there we have had a very interesting letter -frofn 
Thomas Fairbairn. He tells us that he is working on LOADABLE 
languag^'card and would be interested to know how many o-f the 
members would be I fsl'TElRESTEEID'P Let us know and we will 
pass it along. Here is what he is trying to do, it will be a 
loadable RAM card which takes the place o-f the BASIC INTERPERTER 
and would allow you to load a special LANGUAGE -from the cassette 
Initially it would come with the regular BASIC on cassette with 
other SYSTEMS available later. 

L.EIT' LJS HlIxSQW WM«=>iT YOU TM I ! * 




0 PRINT "HERE IS A GOOD PROGRAM SUBMITTED BY JIM CLATFELTER" 

1 PRINT "WITH IT YOU CAN SEE HOW TO CHANGE STRINGS WITH IN YOUR" 

2 PRINT "PROGRAM. ' THANKS JIM" 

4 PRINT "HIT RETURN TD CONTINUE": INPUT Z 

5 FOR 1=0 TO 15: PRINT : NEXT c REM CLEAR SCREEN 
le POKE 40960,2: POKE 40961,0: REM HOME CURSOR 

15 DIM TIEYTI- C3, 31 ) , NULLT (1,31),, BADf. (1,31), NEW$ (1 , 31 ) 

20 PRINT "ENTER ONE LINE OF TEXT MAXIMUM": PRINT : INPUT TEXTS(0,U,': P.RINT ; T= 
LEN (TEXT® (0,0); 

25 INPUT "DELETE" . BAD® (0„ 0) : PRINT ; E= LEN (BAD®(0,0)) 

30 INPUT " INSERT" . NEWS (0, 0) : PRINT : N= LEN ' (NEW® (0, 0) ) 

35 PRINT : PRINT SPC ( 1 6-T/2 ) ; TEXT* ( 0, 0) s PRINT : REM CENTERS TEXT* 

40 TEXT* ( 1 „ 0) =TEXT* (0, 0) : TEXT* (3, 0) =TEXT* (0,0) 

45 FDR I=T-B TO 0 STEP - 1 : TEXT* ( 1 . I + B) : IF TEXT* (1 , I ) =BAD* (0, 0 ) THEN J = I;I=0 
50 NEXT : REM FINDS BAD* IN TEXT*, BEGINS SEARCH WITH LAST CHARACTER IN T 

EXT* 

5z IF EADS (0, 0) =TEXT* (1, J) THEM TEXT* (0, J ) =NEW* (0 , 0) : TEXT* (0, J+N) =TEXT* (3. J+B) : 
TEXT* (0, T-B-:-N) =^NULL* (0,0) 

60 T= LEN (TEXT* (0.0) ) : REM NEW LEN 

65 PRINT SPC ( i6“T/2) TEXT* (0. 0) : REM CENTERS NEW TEXT* 

70 PRINT 5 PRINT 

75 REM WITH THIS PROGRAM YOU CAN DELETE AND/OR INSERT CHARACTERS 

80 REM TEXT*<;2,0) IS NOT USED; IT IS NEEDED TO HOLD EXTRA CHARACTERS FORCED I 

NTO IT FROMf TEXT*(1,0) IN LOOP ON LINE 45 


0 CALL 17046 


4 

10 

30 

40 

50 


PRINT "HERE IS A PROGRAM SUBMITTED 
PRINT "IT IS A GOOD EXAMPLE OF HOW 
PRINT "BE YET STILL EE FUNCTIONAL” 
PRINT "THANKS AL " 

INPUT "HIT RETURN TO CONTINUE",! 
REM MILAGE COMPARISON SUBMITTED 
INPUT "MILES DRIVEN ".A 


BY AL KREMER” 

SIMPLE A PROGRAM CAN" 


BY AL KREMER 


INPUT "MLILES PER GALLON ON LEADED FUEL ".B 
INPUT "MILES PER GALLON ON UNLEADED HjEL ".C 

INPUT "COST OF LEADED FUEL ",D ’ 

INPUT "COST OF UNLEADED FUEL’KE 


60 F=A/B#D 
70 G=A/C«E 


80 PRINT "COST OF TRIP WITH LEADED FUEL " F 
90 PRINT "COST OF TRIP WITH UNLEADED FUEL " ' G 
100 H--G-F 

110 PRINT "DIFFERENCE IN TOTAL COST "„f 
115 INPUT "MORE CALCULATIONS (1=YES)",K " 
120 IF K=1 THEN 10 


□ cccb, 
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First thing is a hint -fram ERNEST E SMITH. He has faund that 
you can usa a comma (,) in place o-f the (TO) in the FOR command. 
Examples FOR 1=1 TO 10 IS THE SAME AS FOR 1=1 , 10 


+ ++ + -t--r + + + -+- + ^T- + + + + + -i- + -+- + + +- + -r 


Me>:t -for those out there needing a routine to round oft DOLLAR 
aiTiounts here is a small routine showing how!!i!l! 

90 INPUT "AMOUNT ='’,P: REM ENTER DOLLARS & CENTS 1.095 

100 P=P)|;100: IF P- INT (P)>=.5 THEN P= INT <P)+1 

101 P= INT (P)sP=P/100 

110 PRINT USING ”S$#####.#-i4",P 
120 GOTO 90 

Notice that in line 110 I Lssed the F'RINT USING -form to allow 
SLirpression at the trw^iling ZERO’S. 


Next I will cover the commands needed to draw in LOW RES! 1 1 ! I i ! 

Please re-fer to your APF BASIC Language Manual page 14 S< io, 

This shows ail of the si'iapes and colors available. 

1= COLOR = This defines the color to be used. The color will not 
change until you issue anc^ther COLOR command. 

Format = COLOR= Color # 

CaLOR=5 

2 . SHAPE = This defines the shape to be used. It also will not 
change i.tntil another SHAPE command is issued. 

Format = SHAPE= Shape # 

SHAPE=13 

P'uCT = This is used to place one shape on the screen. 

Format = PLOT Col #, Row # 

PLOT 10, B 

4. HLIN = This one i-oill draw a horticontal line on the screen. 
Format = HLIN Starting col Ending col Row # 

HLIM 10,20,6 

5. VLIN = Here you will draw a vertical line. 

Format = VLIN Starting row #, Ending row #, Col # 

VLIN 0, 15, 16 

Here is a. program to show you the basic usage of the commands. It 

also shows how to use VARIABLES in the commands 

10 FDR Z=0 , 15 
15 SHAPE =Zs CALL 17046 
20 FOR 1=0 , 7 
30 COLOR =I 
40 HLIN I,3i-r, I 
50 HLIN 15-1 

60 VlIN 1,15-1, I 
70 VLIN 15-1,31-1 
E0 NEXT : 

==•0 NEXT Z 
100 GOTO 10 
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0 CALL 17046 

1 PRINT "HERE IS ANOTHER GREAT GAME WRITTEN :IN BASIC BY ONE OF THE' 

2 PRINT "CLUB ^fEMBERS AND SHOWS WHAT CAN BE DONE IF YOU PUT YOUF:" 

3 PRINT "MIND AND TIME TO IT....’’ 


5 

10 

20 

30 


1 01;! 
105 
110 
1 15 
120 


145 

150 

155 

160 

165 

170 

175 


PRINT "THANKS FDR THE PROGRAM DANNY" 

PRINT "HIT RETURN TO COl'ITINUE": INPUT Z 
REM ’•MEMORY GAME BY DANNY LOUIE’ 

POKE 24578, 3S; CALL 17046 

POKE 40960,2! POKE 40961,0 

PRINT TAB (6);"M E M □ R Y GAME 

REM YOU DON’T HAVE TO TYPE IN THE INSTRUCTIONS. 

REM PUT IT WILL MAKE THE PROGRAM LOOK NICER. 

REM A COLOR TV IS RECOMMENDED, BUT A B/W WORKS TOO. 

PRINT "IN THIS GAME, THE COMPUTER WILL RANDOMLY FLASH ON THE SCREEN 
PRINT "GNS: OF THE NINE COLOR BOXES AND ITS NUMBER,, ONE AT A TIME. YOU " 
PRINT "YOU THEN TRY TO REPEAT THE PAT- TERN BY PRLSSI'JG THE CORRECT 
PRINT "KEY OY THE LEFT OOYSTICK. IF YOU ARE CORRECT. THE COMPUTER 

PRINT "WILL FLASH THE BOX AGAIN AMD ADD ANOTHER BOX. AS THE LENGTH 

PRINT "OF THE. BOXES INCREASE. YOU WILL FIND THAT IT WILL BECOME MORE 
PRINT "DIFFICUL.T TO REMEMBER. YPRESS RETURN> 

IF KEYT (0) THEN 120 

CALL 17046: POKE 40960,2: POKE 40961,0 
PRINT TAB (6):"M E M 0 R Y GAME 
REM 32 SPACES. 

PRINT "WhlEN YOU HAVE CHOSEN THE WRONG 
PRINT "TO PL. AY AGAIN. HOWEVER, IF YOU 
PRINT "PATTERN GIVEN B;Y THE COMPUTER 
PRINT "FEATED, YOU GET A ’EXTRA LIFE. 

PRINT "GET ANOTHER CHANCE TO FINISH UP THE PATTERN. 

PRINT "HAVE COMPLETED AL.L 40 BOXES 1 ! I !" 

PRINT " <PRES5 RETURN!' 

IF keys; (0)="" THEN 170 
CALL 17046:, POKE 40960,2: POKE 40961,0 
PRINT TAB ^6):"M E M □ R Y GAME 
REM red' BOX 


PRINT " 

BOX, YOU LOSE AND WIL.L BE ASKED 
HAVE SUCCESSFULLY REPEATED THE 
AT 15 B.'OXES BEFORE YOU ARE D£- 
WITH THIS HELPFUL FEATURE, YOU 
YOU WIN WHEN YOU 


200 FOR I=^^867 TO 872: POKE 1,179: NEXT 

205 FOR 1=^905 TO 969 STEP 32: POKE 1,191: NEXT 

210 FOR I"1000 TO 995 STEP -1: POKE 1,188: NE:XT 

215 FOR :[==962 TO B98 STEP -32: POKE 1,191: NEXT 

220 GOSLIB 700 

250 REM BLUE BOX 

255 FOR 1=^077 TO 882: POKE 1,163: NEXT 

260 FDR 1=^915 TO 979 STEP 32: POKE 1,175: NEXT 

265 FOR UU010 TO 1005 STEP -1: POKE 1,172; NEXT 

270 FOR T=^-972 TO 90S STEP -32: POKE 1,175: NEXT 

280 GQSIJB 730 

300 REM AQUA BOX **■* 

305 FOR I ^-^807 TO 892: POKE I,, 211: NEXT 
310 FOR J=^?25 TO 989 STEP 32: POKE 1,223: NEXT 
315 FOR 1^^1020 TO 1015 STEP -1: POKE 1,220: NEXT 
320 FOR I=^9S2 TO 918 STEP -32; POKE 1,223: NEXT 
330 GOSLIB 800 

350 REM YELLOW BOX ttt 

360 FOR 1=^707 TO 712: POKE I,, 147: NEXT 

365 FOR I -745 TO 809 STEP 32: POKE 1,159: NEXT 

370 FOR I-S40 TO 835 STEP -1: POKE 1,156: NEXT 


OC-OBEIR 19S3 
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.375 


•?i0 
420 
425 
430 
4 40 
450 
435 
460 
4.63 
4'"0 
4P0 
5013 
305 
5 1 .?} 
515 
520 
530 
33i;J 
555 


565 
570 
5S0 
6;!'0 
605 
610 
615 
620 
630 
630 
"00 
705 
7 10 
:"15 
720 

-'0 
7 40 
750 
755 
760 
7 65 
770 
775 
7S0 
740 


310 

315 

320 

825 


FDR 1=302 TO 733 STEP -32; POKE 1,159; NEXT 
0DSUS 350 

REN -If** GREEN BOX *** 

FOR r=717 TO 722: POKE 1,131; ME XT 
POR r=755 TO G19 STEP 32: POKE ,r„143: NEXT 
FOR I=S50 TO 845 STEP -1; POKE 1,140: NEXT 
FOR 1=812 TO 738 STEP -32: POKE T„i43: NEXT 
GQSUB 900 


REN *** WHITE BOX .*#*: 

FOR T=727 TO 732: POKE 1,195: NEXT 
FOR I=765 TO 829 STEP 32: POKE 1,207; NEXT 
FOR 1=360 TO 855 STEP -1: POKE 1,204: NEXT 
FOR 1=922 TO 758 STEP -32: POKE 1,707; mEXT 
GOSUB 950 

REN Mtt PURPLE BOX *** 


FOR 1=547 TO 352; POKE 1.227; NEXT 
FGR 1=585 TO 649 STEP 32': POKE 1, 239s NEXT 

FOR 1=630 TO 675 STEP -1; POKE 1,236: NEXT 

FOR 1=642 TO 573 -STEP -32s POKE I„239: NEXT 
GOSUB 1000 

PEN AQUA BOX t** 

FOR 1=557 TO 562: R-DKE 1,211: NEXT 
FGR 1=595 TO 659 STEP 32: POKE 1,223: NEXT 

FOR 1=690 TO 685 STEP -1: POKE 1,220: NEXT 

FOR 1=652 TO 583 STEP -32: POKE 1,223: NEXT 
GOSUB 1050 

Rt:N ORANGE BOX itt 

FOR 1=567 TO 572; POKE 1,243; NEXT 

FOR 1=605 TO 66? STEP 32: POKE I,, 255: NEXT 

FOR 1=700 TO 675 STEP -1: POKE 1,2525 NEXT 

FOR 1=662 TO 598 STEP -.32: POKE 1,255: NEXT 


GOSUB 1100 

MUSIC " 103050*10 50*10000" ; X=100: GOSUB 1150: 

r. AQUA ' 1 " - RED CENTER 

POKE 900,128: POKE 901,220: POKE 902,213; POKE 903,128 

POKE 722., 128: POKE 9'’3,123: POKE 934,213: POKE 935,123 

r'Cl;'E 964,209: POKE 965,211: POKE 966,219: POKE 967,211 

MUSIC "100":X=2S; GOSUB 1150 

COLOR =3: SHAPE =15; ML IN 3,8,12 

HLTN 3,0,13; HLIN 3,S,14 

RETURN 


; ORANGE ’2’ - BLUE CENTER 

POKE 910,241: POKE 911,252: POKE 912.252; POKE 913,242 

POKE 742,128: POKE 943,243: POKE 944,243: POKE 945,248 

POKE 974,245; POKE 975,243; POKE 976,243: POKE 977,242 

NUSIC "200": GOSUB 1150 

CGLOR =2; HLIN 13,13,12 

HL.TN 13,18,13; HLIN 13,18,14 

RETURN 

: YELLOW -"3" - AQUA CENTER 


POKE 920,143: POKE 921,156: POKE 922,156: 
POKE 952,128: POKE 953,156: POKE 934,156: 
POKE 984,145: POKE 985,147: POKE 986,147; 
NUSIC "300"; GOSUB 1150 
COLOR =0; HLIN 23,28,12 


POKE 923,146 
POKE 955,146 
POKE 987,152 


GOTO 1200 
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830 

835 

840 

S50 

855 

860 

865 

S70 

875 

880 

890 

900 

905 

910 

915 


925 


940 

950 

955 

960 

965 

970 

975 

980 

990 

1 005 
1 0 1 0 
1015 
1020 
1025 
1030 


1065 

1070 


1090 
1 1 00 
1105 
1 1 10 
1 1 15 
1120 
1125 
1 130 
1 140 
1 1 50 
1200 
1210 
1250 


HLIN 23,28,13: HLIN 23,28,14 
COLOR =0: HLIN 23,28,12 
RETURN 

5 GREEN ’ 4 ’’ - YELLOW CENTER 
POKE 740„133: POKE 741,128: POKE 
POKE 772,133: POKE 773,131: POKE 
POKE 804,128: POKE 805,128: POKE 
MUSIC "400": BOSUB 1150 
COLOR =1; HLIN 3,8,7 
HLIN 3,8,8: HLIN 3,8,9 
RETURN 

: WHITE '5’ - GREEN CENTER 
POKE 750,197: POKE 751,204: POKE 
POKE 782,196: POKE 783,204:' POKE 
POKE 814,193: POKE 815,, 195: POKE 
MUSIC "500”: GGSUB 1150 
COLOR =0; HLIN 13,18,7 
HLIN 13.18,8: HLIN 13,13,9 
RETURN 

: PURPLE ’6^ - WHITE CENTER 
POKE 760., 128: POKE 761,230: POKE 
POKE 792,229; POKE 793,225: PDfCE 
POLE 024.228; POKE 825.235: POKE 
MUSIC "600”; 60SUB 1150 
COLOR =4: HLIN 23,28,7 
HLIN 23,25,8: HLIN 23,28,9 
RETURN 

; ORANGE "7' - PURPLE CENTER 


742, 129; 
774. 135: 
806, 133; 


752.204: 
784, 204: 
816,195: 


762. 236: 
794,236: 
826,227: 


POKE 580,244: POKE 581,252: POKE 582,252: 

POKE 612.128: POKE 613,128; POKE 614,246: 

POKE 644,128; POKE 645,246: POKE 646,128: 

MUSIC "700”: GOSUB 1150 

COLOR =6: HLIN 3,8,2 

HLIN 3,8,3: HLIN 3,8,4 

RETURN 


: RED ’S^' - AQUA CENTER 
POKE 590., 177: POKE 591,188: 
POKE. 622,177: POKE 623.188: 
POKE 654,180: POKE 655.179: 
MUSIC ”^<100": GOSUB 1150 
COLOR ==5: HLIN 13,18.2 
HLIN 13.18,3: HLIN 13,18,4 
RETURN 

: BLUE '9' - ORANGE CENTER 
POKE 600,161: POKE 601.172: 


P0K;E 592,183: 
POKE 624,188: 
POKE 656,179: 


POKE 602, 172; 


POKE 632.164: POKE 633,163: POKE 634.163: 

POKE 664,128: POKE 665,128: POKE 666,128; 

MUSIC ‘'«200'‘: GOSUB 1150 

COLOR =7: HLIN 23,28,2 

HLIN 23.23’,3: HLIN 23,28,4 

RETURN 

FOR 1-0 TO X: NEXT I: RETURN 
DIM K* (1) ,,S(40) 

N=1:T=0:EX=^0: REM EX=EXTRA CHANCE 
REM ADD NEW BOX 


POKE 743,128 
PDL:E 775,130 
POKE 807,128 


POKE 753,200 
POKE 735,194 
POKE 817,200 


POKE 763, 120 
P0I::E 795,226 
POICE 827,232 


POKE 583.250 
POKE 615,128 
POKE 647,128 


POKE 593, 178 
POKE 625, 178 
POKE 657, 184 


POKE 603, 162 
POKE 635,170 
POKE 667, 170 
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1255 TF T--=40 T^'EN 3000 
1760 T=T+t 

1270 5tN)=-- irJT ( RMD (0)^9+l) 

1230 IF S(M>^-:S''N-1) THEN 1270 

1300 REM START PATTERN 

1310 FOR N=1 TO T: GCSUB 1500: NEXT N 

1350 RF.M COPY PATTERN 

1.360 FOR Mi=l TO T: X=0 

1370 K£= KEY* (2);X = X-f-l5 IF X^40 THEN 14 Xj0 

1380 IF THEN 1370 

1390 TF ASC Ch::$)-43<>S(N) THEN 1450 

1400 REM RIGHT BOX 

1410 G05UB 1500; NEXT N 

1^20' IF T=15 THEN EX-1: GG3UB 2000: GOTO 1250 
1430 CALL 17004: GOTO 1250 
1450 REM WRONG NOTE 

1455 SIJD^^S (N) : S (N) = ASC (K$)-4S: GGSUB 1500 

1460 POKE 64.0,123; POKE 672,123: PCFIE 704,129: POKE 736,123 
1465 POKE 763,128; POKE 800,128: POKE 832,123 
• 1470 MUSIC ”--1(77-:K77-*77-:F:77-*77-*77---'»:77-*77" 

1475 IF EX---^1 THEN EX^0;X-S0: GOSUS 1 150: S ( N) -SUB; GOTO 1300 

1400 n«T: next N: POKE 40960,2: POKE 40961,0: INPUT "WANT ANOTHER CHANCE (YES=1) 
" 1. A 

1490 IF A=1 THEN 1600 

,L495 CALL 17046: PRINT " CHICKEN ' 1 ' i ! t !'!!" : MUSIC "/ 1 00000000000000000000’' 

: STOP 

15.00 REM SUBROUTINE TO DISPLAY BOXES 

ON 6 (N) GOTO 700, 750, 300, B5.0, 900, 950, 1000, 1050, 1 100 
1600 POKE 40960,2; POKE 40961,0: PRINT TAB £ M 0 R Y 3 A M S □ 

GTO 650 

2000 REM EXTRA CHANCE ROUTINE 

2010 F'OKE -640,106: POKE 672,69: POKE 704,39: POKE 736,84: PCKE 763,82: PGF.E 300 
,65: POKE 832,106 

2020 MUSIC ” 300000500030405000 " ; RETURN • 

3000 REM THIS FART IS FOR THOSE WHO SUCCESSFULLY F;EPEATED ALL 40 BOXES''.!'’ 

nONSRATULATlOMS ' ■;'!!!!!'!!: 

3010 “GR 1-0 TO 15: SHAPE •-•=15; COLOR ^=T 
3.1120 HI. IN ?l,5l,I: CAl.L 17026: NEXT I 
Z0Z0 CALL 17046: POl.'E 40960,2; POKE 40961,0 
3040 PRINT ; PRINT : PRINT : PRINT 

3050 PRINT ’’ CONGRATULATIONS''!! YOU ARE ONE OF THE VERY FEW WHO HAS 
7.060 PRINT "MADE IT THIS FAR (UN!. ESS YOU HAD THE PATTERN WRITTEN DOWN!!)'’ 

3070 PRINT : PRINT ; PRINT " P.G. - MAYBE YOU COULD SEND YOUR BRAINS TO SC 

TENCE7???'i’ " 

3080 PRINT : PRINT "TO PLAY AGAIN, TYPE IN 'RUM”. ” : END 


tiitniinjmtuiitiuttitnttt 

WANT ADS 
Far sale; Reconditioned BS-i’s 
and FI-lB8’s. SB-l FOR 39.95 
FI-10g FOR 49.95.. PLEftSE INCLL'IIE 
*5.?g for shipping and handling. 
Send orders to: S. R. JOSES, 

<19 S !f5 E PL, TULSA, OK 74129 

mtmimttnmtuumtmn 


ittmittttttmttitttniittnit 

WANT ADS 
Per Sale; IS-l cosputer 
I6K RAN plus Basic Tutor, 
Prograeeing and Tech Manual, 
the Sectets, Bugger, Casy, 
Starship, Priser, Huabus II, 
eanuals, ir.t-1 Ht.. <251 or best 
COB. 0. KliCIEX, R4S461, LL, SN 
B7031 

ttMititittttiniutttitttttttt} 


umititttiittttmttmtitiiit 
WANT ADS 
For sale; UK APF Ill-I 
Coaputer factory pack. Bought 
I 1/2 years ago and still in 
ejcellant condition. Seller 
needs eoney for college. Asking 
<299 or best offer, 
call 6«a-:62-599g 

tintittmiitittamttiuitnt 
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0 REM "SEE END OF PROGRAM LISTING" 

1 DIM HS ( 1 ) , NA« (2, 20) , NULLS (20) : GOTO 700 

2 POKE 24573.33 

3 TIME=200: POKE 40960,2 

4 SHAPE =15: COLOR =2 

6 HLIN 0j31,l; HLIN 0,31,7: VLIN 1,15,0: VLIN 1,15:31 
8 HLIN 0,31,15 

10 B= INT ( RND (1)*32): IF B=0 THEN B=1 

11 IF B=31 THEN B=30 

12 POKE 960+B,255 
15 A=576-<-31:B=576+64 

17 POKE A, 159; POKE B,159 

13 A=A-1:3=B+1; IF KEYS (2)0"" THEN 100 
19 IF FLAG=1 THEN 109 

25 IF A=575 THEN A=576+3 1 : B=576+64 

26 TIME=TIME-. 13: 0= INT (TIME); POKE 40961,16: PRINT "TIME = 

28 IF TIME<=0 THEN 400 

30 IF KEYS (DO"” THEN POKE 40960,0: STOP 
35 POKE A. 124: POKE B. 126 

50 GOTO 17 

100 IF KEYS (2)0"" THEN 100 

101 FLAG--=1 

105 >:=B+32: POKE X,42: POKE X,159 

109 POKE X,159 

110 X = X+-32;P= PEEK (X): IF P=255 THEN 200 

lit IF X>1020 THEN FLAG=0: POKE X-32, 159; CALL 17035: CALL 17035: CALL 17035 
112 CALL 17035 

115 POKE X,42 

116 IF P0159 THEN POKE X,159: POKE X+32,42: POKE X^-32, 159: FLAG=0 : CALL 17030: 
GOTO 25 

120 GOTO 25 
200 FLAG=0 
205 POKE X,193 

210 CALL 17004; CALL 17004; CALL 17004 
215 si:=sc+i 

220 POKE 40960,2: POKE 40961,0: PRINT "SCORE = " ; SC 
225 (30TC 4 

400 MUSIC "7575757375757575" 

405 IF SOHSd) THEN 500 
410 NAS(2,0)=NULLS: GOTO 700 

500 H5(1)=5C;NA$<1,0)=1\IULLS: NAS(1,0)=NAS(2,0) : NAS (2, 0) =NULLS 

700 CALL 17046: POKE 40960,2; PRINT "BOMBS A W A Y" 

701 PRINT : PRINT : PRINT "HIGH SCORER IS" 

702 PRINT ; PRINT NAS ( 1 , 0) , ‘'SCORE= ";HS(1) 

703 SC=0 

704 FOR J=0 TO 19;NULLS(J)="": NEXT J 

705 MUSIC 'V7 2 2 1 /7 /6 /7 1 +1 2 3 5 5 6 5 3 2" 

709 PRINT : INPUT "ENTER NAME" , NAS ( 2, 0) 

710 CALL 17046: PRINT "USE # 2 JOYSTICK TO DROP BOMB" 

715 FOR 1=1 TO 300; NEXT I 

720 COLOR =1: SHAPE =15 

725 FOR 1=0 TO 15: HLIN 0,31,1: NEXT I 
730 GOTO 2 

900 REM "HERE IS A GOOD PROGRAM FOR THE BEGINNER OR THE EXPERT" 

910 REM "PROGRAMMER TO PLAY WITH. SEE WHAT YOU CAN DO WITH IT." 

920 REM "I AM SORRY BUT DUE TO A SLIP UP IN THE BOOKKEEPING I" 

930 REM "CAN'T FIND THE NAME OF THE AUTHOR, SO THANKS A LOT" 

940 REM ”TQ WHOM EVER IT IS" 
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I REN "HERE IS A PROGRAM SUBMITTED BY CHUCK CLANCY WHICH'' 
O REM "VGU SHOULD HAVE FUN WITH." 

5 POKE 2457S,33: CALL 17046! GOTO 400 
10 INPUT A 

II POKE 50,0 
20 INPUT B 
30 INPUT C 

40 D= INT (A/256) 

50 E=A-(D*256) 

60 POKE 100, D: POKE 101, E 
90 POKE 102, B 
120 POKE 104, C 

130 FOR T=1 TO 15! CALL 4S066! POKE 50,0: NEXT I 
140 GOTO 10 

400 PRINT "SOUND GENERATOR TIMER" 


401 



404 


PRINT 5 PRINT "ENTER THREE VALUES TO SET LOOPS" 
PRINT "VALUE 1 CAN BE UP TO 65535, BUT" 

PRINT "THAT WILL TAKE ALL DAY TO RUN" 

PRINT "1000 IS A BETTER TOP END" 


406 

407 
403 

409 

410 

411 





-430 
4 40 


PRINT ; PRINT "2 3 SET TO 255 MAX" 

PRINT "THE MACHINE ROUTINE IS IN DATA" 
PRINT "STMTS LOADED TO MEM AT 4B000" 
PRINT "AND CALLED IN A LOOP" 

PRINT "SPACE RESERVED IN PROGRAM FOR" 
PRINT "AN EXTRA ROUTINE TO SHIFT THE" 
PRINT "COUNTS IN LOCTNS 100-105" 

PRINT "PRESS RTN" 

IF KEYS (0)="" THEN. 415 
IF KEYS (0)0"" THEN 420 
CALL 17046 

POKE 40960,2: POKE 40961.576 

PRINT "LOADING NOW" 

FOR 1=43000 TO 48120 


445 READ A: POKE I, A 
450 NEXT I 
455 CALL 17046 
•L60 MUSIC "757575" 

465 (BOTD 10 

"^00 DATA 15. 182,32,3. 136,8, 183,32,3, 14,57, 124,0,50,254,0, 100,9, 140,0,0,38,250,5 
7,132.0 

505 DATA 102, 74,129,0,38,251, 57,246,0, 104,90,193,0, 233,251 , 57, 182, 0, 50, 1 29, 255, 
33, 10, 1S3 

"10 DATA 0,48.57, 1, 1, 1, 1, 1, 1, 1, 1, 1,57, 1, 1,57. 141, 198, 182,0,50, 129,255,39,20, 141 
, 190, 1,141, 176, 141, 193 

515 DATA 141 , 172 , 141 , 203, 141 , 168 , 126 , 137 , 194 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , , 57 


ttttttmitttuttttitttttttiutt 
WANT ADS 

Far Sale: Modified SI-232 to 
allQN Sath a PRINTER AND ?IQDE« 
to be run togeather. Send $29.95 
plus $5.00 Tor shipping to: 

>1 B ENT, Inc., PC BOI UU, 
SPPINGSftlE. ARK 72769 


LONELY MEMBER 

Scott rich 
3g52S 3350N 
liberty 
Utah 3«li 
795-!'’!? 


UJ«ir-i'ti 3! n -F or~ m-at i can 

Due to tns cost of printing we must ask you again to limit your 
want ads to 10 lines. The cost of 25 cents pre line for members 
and 75 cents for non-members is the same as is the limit of 32 
characters per line. Ads will be published in the order received, 
any leftovers will be held till the next issue. Deadline for ada 
is the 20th of the month ! M 5 * ! ! i ! i ! ! Here we go again. The 
want ads are for small programs or hardware, they are not intended 
for commercial use. The professional type rates have gone down 
so don't be afraid to ask again what they are. You can expect a 
pleasant surprise. 

We have another full mailing to 3,000 people coming up this year. 

Each line can contain 32 characters including spaces. 

1 . 


2 . 


6 . 


7. 


8 . 


9. 


10 . 


i— C3r-i@s-come <=omFooi.-t:.ei^s». 


Check here if you do not want this information published! ! ! 


name* *Tell us a little about yourself 

% 

addr* « 

« 

city* * 

KC 

state* * 

» 

zip* * 

* 

phone* * 

« 


««»«««*«»««««»«««*»»»«»»«»»«»«»»«»»»»»««««»««»»»« »««](.-««» 


• i MIl-UlDf' 

* ‘ izv r-:*. 

j?f 




(See Back for Details] 


I 


Here’s an excitin^ir 8K HI RES ARCADE TYPE ACTION GAME that comes to us direct 
from the creative and imaginative minds of the newly formed Canadian ensemble 
of IM-1. programmers known as "THE GROSVENCfl GROUP". 

Carefully guide the venomous RATTLER throughout the interior of THE SNAKE PIT 
and let him dine on an exquisite cuisine of fresh HI RES vermlnJU Avoid other 
snoozing rattlers that occupy the pit. ...THEY ARE DEADLY WHEN AWAKENEDIM 
This program comes with varying level of play, increasing screen difficulty, 
and a full screen editor which allows you to change your mazes (PITS) and make 
yoxrr own PERSONALIZED screens of playl I J 

Good sound, color, graphics, and detailed instruction booklet Only $10,95ppd. 



ScrOOnwrUor ★ by Keith PMIUps 


This 8K Front Screen Development System puts the graphic POWER of the IM-1 at your 
fingertips. Create front screens with 256 Alpha/Numeric-Semi/Graphic shapes in 
3 different colcrs, or, create your art in 2 separate HI/llES modes and save them 
for future display or work. SCREENWRITER is loaded with fascinating functions and 
features and comes complete with an "EASY-TO-FOLLOW" instruction booklet. This 
program will be a welcomed addition to your IM-1 program litorary and is priced 
at only $l4,95ppd* Send for your copy TODAYlIl 


DEQ'GHmX IMTED 

P.O. Box 54 • AtTOWsmilh, Illinois 61722 





